home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / form.arc / CONV.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  2006-08-17  |  258 b   |  12 lines
  1. 10  CLS:FILES "*.frm"
  2. 20  INPUT "File to Convert ";A$
  3. 30  IF A$="" THEN SYSTEM
  4. 40  NAME A$ AS "temp.xxx"
  5. 50  OPEN "temp.xxx" FOR INPUT AS #1
  6. 60  OPEN A$ AS #2 LEN=79:FIELD #2,79 AS BUFF$
  7. 65  X=0:WHILE NOT EOF(1)
  8. 70  TXT$=INPUT$(79,#1)
  9. 90  LSET BUFF$=TXT$
  10. 100  X=X+1:PUT #2,X
  11. 110  WEND:CLOSE:KILL "temp.xxx":GOTO 20
  12.